home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr05
/
tpwplay.zip
/
MIDIUNIT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-07-13
|
1KB
|
38 lines
unit MidiUnit;
interface
uses
WinTypes;
function ErrorMsg(Error: LongInt; Msg: PChar): Boolean;
function OpenMci(PWindow: HWnd; FileName, DeviceType: PChar): Boolean;
procedure CloseMci;
procedure PlayMci;
procedure PauseMidi;
function GetMidiInfo(S: PChar): PChar;
function CheckForMapper: Boolean;
procedure SetTimeFormatMS;
function GetLocation: LongInt;
function StopMCI: Boolean;
function GetInfo(S: PChar): PChar;
function GetDeviceId: Word;
function GetLen: Longint;
function GetMode: Longint;
implementation
function ErrorMsg; external 'MIDIINFO' index 1;
function OpenMci; external 'MIDIINFO' index 2;
procedure CloseMci; external 'MIDIINFO' index 3;
procedure PlayMci; external 'MIDIINFO' index 4;
procedure PauseMidi; external 'MIDIINFO' index 5;
function GetMidiInfo; external 'MIDIINFO' index 6;
function CheckForMapper; external 'MIDIINFO' index 7;
procedure SetTimeFormatMS; external 'MIDIINFO' index 8;
function GetLocation; external 'MIDIINFO' index 9;
function StopMci; external 'MIDIINFO' index 10;
function GetInfo; external 'MIDIINFO' index 11;
function GetDeviceId; external 'MIDIINFO' index 12;
function GetLen; external 'MIDIINFO' index 13;
function GetMode; external 'MIDIINFO' index 14;
end.